home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Developer's Kit 1996
/
Delphi Developer's Kit 1996.iso
/
power
/
formset
/
page3.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-12-22
|
2KB
|
84 lines
{
Saxman Software
Programmer Productivity Series
Delphi Custom Controls
Copyright 1995, Jim Standley
FormSet Demo, Page 3
}
unit Page3;
{--------------------------------} Interface {-------------------------------}
uses
Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TfPage3 = class(TForm)
Label1: TLabel;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fPage3: TfPage3;
{-----------------------------} Implementation {-----------------------------}
{$R *.DFM}
procedure TfPage3.FormCreate(Sender: TObject);
begin
ShowMessage('Page 3: Create');
end;
procedure TfPage3.FormActivate(Sender: TObject);
begin
ShowMessage('Page 3: Activate');
end;
procedure TfPage3.FormShow(Sender: TObject);
begin
ShowMessage('Page 3: Show');
end;
procedure TfPage3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ShowMessage('Page 3: Close Query');
end;
procedure TfPage3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowMessage('Page 3: Close');
end;
procedure TfPage3.FormHide(Sender: TObject);
begin
ShowMessage('Page 3: Hide');
end;
procedure TfPage3.FormDestroy(Sender: TObject);
begin
ShowMessage('Page 3: Destroy');
end;
end.